home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / batchut / bcsrce2.zip / SAVEIT.BC < prev    next >
Text File  |  1991-02-22  |  2KB  |  74 lines
  1. rem Hotkey to activity this TSR is Ctrl-C.
  2. rem This product use the TesSeRact(tm) Ram-Resident Library and supports
  3. rem the TesSeRact Standard for Ram-Resident Program Communication. For
  4. rem information about TesSeRact, contact the TesSeRact Development Team
  5. rem at:  TesSeRact Development Team
  6. rem      1657 The Fairways
  7. rem      Suite 101
  8. rem      Jenkintown, PA  19046
  9. rem      1-215-884-3373
  10. rem      Compuserve:     70731.20
  11. rem      MCIMAIL:        315-5415
  12. rem
  13. rem This MCI Account has been provided to the TesSeRact Development Team
  14. rem by Borland International, Inc. TesSeRact is a trade mark of the
  15. rem TesSeRact Development Team.
  16. if %1 = disable goto disable_TSR
  17. if %1 = enable goto enable_TSR
  18. if %1 = unload goto unload_TSR
  19. if %1 = popup goto popup_TSR
  20. if %1 = d goto disable_TSR
  21. if %1 = e goto enable_TSR
  22. if %1 = u goto unload_TSR
  23. if %1 = p goto popup_TSR
  24. TSR_installed?
  25. if errorlevel 1 goto installed
  26. echo Installing screen capture program.
  27. echo All screens toggled with Ctrl-C are redirected to SAVEIT.SCN.
  28. echo.
  29. echo SYNTAX--: SAVEIT [UNLOAD]/[ENABLE]/[DISABLE]/[POPUP]
  30. echo SYNTAX--: SAVEIT [U]/[E]/[D]/[P]
  31. TSR 46 4
  32. save_screen
  33. let %!w = 1
  34. do_while not %!w == 26
  35.     locate %!w 1
  36.     let %!l = 0
  37.     read_screen %!l
  38.     echo %!l>>saveit.scn
  39.     add %!w 1
  40. end_while
  41. restore_screen
  42. beep
  43. return
  44. :installed
  45. echo The screen capture TSR program has already been installed.
  46. exit
  47. :disable_TSR
  48. GOSUB CHECK_TSR
  49. TSR_disable
  50. echo The screen capture TSR has been DISABLED.
  51. exit
  52. :enable_TSR
  53. GOSUB CHECK_TSR
  54. TSR_enable
  55. echo The screen capture TSR has been ENABLED.
  56. exit
  57. :unload_TSR
  58. GOSUB CHECK_TSR
  59. TSR_unload
  60. echo The screen capture TSR has been UNLOADED.
  61. exit
  62. :popup_TSR
  63. GOSUB CHECK_TSR
  64. TSR_popup
  65. exit
  66. :CHECK_TSR
  67. TSR_installed?
  68. if not errorlevel 1 goto N_A
  69. RETURN
  70. :N_A
  71. echo The screen capture TSR hasn't been installed yet.
  72. echo SAVEIT, by itself, installs the TSR.
  73. exit
  74.